!ifdef reg
$draw del pid !reg
!endif
$draw icon 1 group 1000000 xpolygon ztest 0 create color #80ffff00 ccolor #ffff0000  pcolor #ff0000ff lwidth 2 psize 2
!reg = pid  // запоминаем id полигона в переменной reg

$print text "Рисование произвольной области." time 10
